function debug_print(level, varargin)
%
% Вывод отладочной информации
%
global DEBUG_LEVEL

if level <= DEBUG_LEVEL
    fprintf('Сообщение %d;\t', level);
    fprintf(varargin{:});
end